home *** CD-ROM | disk | FTP | other *** search
/ Aminet 8 / Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso / Aminet / util / time / FiloFax_v10.lha / FiloFax / HD_Install < prev    next >
Text File  |  1995-06-11  |  3KB  |  121 lines
  1. (SET is_update 0)
  2. (set lib "libs/reqtools.library")
  3.  
  4. (complete 0)
  5.  
  6. (SET @default-dest "SYS:")
  7.  
  8. (IF (< (/ (getversion) 65536) 37)
  9.  
  10.     (
  11.       (message "\n Tut mir leid, dieses Paket benoetigt mind. OS2.04.\n")
  12.       (exit (quiet))
  13.     )
  14. )
  15.  
  16.  
  17. (SET Filo_dest
  18.         (askdir
  19.                 (prompt "In welche Disk/Schublade soll FiloFax installiert werden?")
  20.                 (help "\n Das Installationsprogramm erstellt das Verzeichnis \n"
  21.                         " \"FiloFax\" in diesem Verzeichnis. Alle \n \"FiloFax\""
  22.                         " Dateien werden in dieses Verzeichnis    kopiert. \n\n"
  23.                         " Tip :\n "
  24.                         "\"FiloFax\" kann später in ein beliebiges \n anderes "
  25.                         "Verzeichnis verschoben werden, wenn der \n Inhalt nicht geändert wird.\n")
  26.                 (default @default-dest)
  27.         )
  28. )
  29.  
  30.  
  31. ; Neues Verzeichnis
  32. (makedir (tackon Filo_dest "FiloFax") (infos))
  33.  
  34. (complete 10)
  35.  
  36. (SET Filo_dest (tackon Filo_dest "FiloFax"))
  37. (set @default-dest Filo_dest)
  38.  
  39. (copyfiles
  40.         (source "")
  41.         (dest Filo_dest) (pattern "#?") (infos)
  42. )       
  43. (complete 70)
  44.        ((SET zusatze (askoptions
  45.  
  46.             (prompt "\n Welche Zusätze sollen installiert werden ?\n")
  47.  
  48.             (choices
  49.                  " FiloCheck in die WB-Startup:"
  50.                  " FiloPrefs nach S:"
  51.             )
  52.  
  53.             (help (cat "\n"
  54.  
  55.                 " 1. Das Programm FiloCheck wird beim Booten automatisch\n"
  56.                 "    gestartet. (FiloCheck wird über die Tooltypes \n"
  57.                 "    konfiguriert, mehr dazu in der Anleitung)  \n"
  58.                 "                                                   \n"
  59.                 " 2. Es wird eine Konfiguration nach S: \n"
  60.                 "    kopiert. \n"                          
  61.  
  62.  
  63.             ))
  64.  
  65.             (DEFAULT 0)
  66.         ))
  67.     )
  68.  
  69.     (IF (IN zusatze 0) (
  70.  
  71.         (copyfiles
  72.  
  73.             (source "FiloCheck")
  74.             (dest   "SYS:WBStartup/")
  75.         )
  76.         (copyfiles
  77.  
  78.             (source "FiloCheck.info")
  79.             (dest   "SYS:WBStartup/")
  80.         )
  81.  
  82.         (tooltype (dest (tackon "SYS:WBStartup/" "FiloCheck"))
  83.          (settooltype "FILO_FAX" (tackon Filo_dest "FiloFax"))
  84.         )
  85.  
  86.  
  87.     ))                   
  88.  
  89.     (complete 85)                    
  90.     (IF (IN zusatze 1) (
  91.  
  92.         (copyfiles
  93.  
  94.             (source "Configs/FiloPrefs")
  95.             (dest   "s:")
  96.         )
  97.     ))
  98.  
  99. (copylib    (prompt "FiloFax beöntigt die ReqTools.library\nWollen Sie diese jetzt installieren")
  100.             (help "")
  101.             (source lib)
  102.             (dest "LIBS:")
  103.             (confirm)
  104. )
  105.  
  106. (IF (< (/ (getversion) 65536) 38)
  107.     (tooltype (dest (tackon Filo_dest "FiloFax.guide"))
  108.               (setdefaulttool "sys:utilities/AmigaGuide")
  109.     )
  110.  
  111.     (tooltype (dest (tackon Filo_dest "FiloFax.guide"))
  112.               (setdefaulttool "sys:utilities/Multiview")
  113.     )
  114.  
  115. )           
  116.  
  117.  
  118. (complete 100)
  119. (exit)
  120.  
  121.